home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / menurght / declares.bas < prev    next >
Encoding:
BASIC Source File  |  1993-08-09  |  820 b   |  20 lines
  1. Option Explicit
  2. Global Const TWIPS = 1
  3. Type Rect
  4.     Left As Integer
  5.     Top As Integer
  6.     Right As Integer
  7.     Bottom As Integer
  8. End Type
  9.  
  10.  
  11. Declare Function TrackPopupMenu Lib "user" (ByVal hMenu%, ByVal wFlags%, ByVal x%, ByVal y%, ByVal r2%, ByVal hWd%, r As Rect) As Integer
  12. Declare Function GetMenu Lib "user" (ByVal hWd%) As Integer
  13. Declare Function GetSubMenu Lib "user" (ByVal hMenu%, ByVal nPos%) As Integer
  14. Declare Function InsertMenu Lib "User" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As Any) As Integer
  15. Declare Function GetSystemMenu Lib "User" (ByVal hWnd As Integer, ByVal bRevert As Integer) As Integer
  16. Global Const MF_POPUP = &H10
  17. Global Const MF_BYPOSITION = &H400
  18. Global Const MF_SEPARATOR = &H800
  19.  
  20.